home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / amosgeil.lha / programme / Effekt1.amos / Effekt1.amosSourceCode < prev    next >
AMOS Source Code  |  1994-10-11  |  2KB  |  51 lines
  1. '            ï¿½ï¿½ï¿½ MADE ON 1994 BY MARFEL / GROUP[M] ï¿½ï¿½ï¿½ 
  2.  
  3. 'Proc _ST_CONV : Edit  
  4. Proc _SCROLL
  5.  
  6.  
  7.  
  8. '_SCROLL l�sst den text,der in der bank abgelegt ist,mit einem 
  9. 'sch�nen Effekt durchscrollen... 
  10.  
  11. Procedure _SCROLL
  12.    '>>> MADE ON 1994 BY MARFEL / GROUP[M] <<< 
  13.    
  14.    Dim O(15) : For I=0 To 7 : O(I)=Start(10)+(I*840) : Next I
  15.    
  16.    Screen Open 1,336,20,4,0 : Flash Off : Curs Off : Hide : Cls 0
  17.    Screen Display 1,128,255,320,20 : No Mask : Palette 0,0,0,$FFF
  18.    
  19.    If Length(9)=0 Then Pop Proc
  20.    Do : For I=Start(9) To Start(9)+Length(9)-2 : Paste Bob 320,0,Peek(I)
  21.          For J=0 To 7 : Screen Copy 1,2,0,336,20 To 1,0,0
  22.             _OFF=O(J) : Copy _OFF,_OFF+839 To Phybase(1)
  23.             If Mouse Key=1 Then Exit 3
  24.    Wait Vbl : Next J : Next I : Loop 
  25. End Proc
  26.  
  27.  
  28.  
  29. '_ST_CONV convertiert die Text-datas in eine Bank,welche schneller 
  30. 'von der procedure _SCROLL ausgelesen werden kann... 
  31. '(Weiterer Vorteil:Im endg�ltigen Programm *KEINE* endlosen datas!!) 
  32. 'Diese Prozedur muss nur einmal gestartet werden (der Text steht ja dann 
  33. 'in der Bank) und kann dann gel�scht werden
  34.  
  35. Procedure _ST_CONV
  36.    Restore : L=0 : Do : Read A$ : Exit If A$="" : Add L,Len(A$) : Loop 
  37.    Reserve As Data 9,L+1 : S=Start(9)
  38.    
  39.    Restore : Do : Read A$ : Exit If A$=""
  40.       For I=1 To Len(A$) : Poke S,Instr("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.,`';:!?()- +/",Mid$(A$,I,1))
  41.    Inc S : Next I : Loop 
  42.    
  43.    'NICHT AMOS_PRO-USER SOLLTEN DIE FOLGENDE ZEILE LOESCHEN:
  44.    'Poke$ Start(9)-8,"ScrlText" 
  45.    
  46.    Data "UND WIEDER EINMAL IST BEWIESEN,DAS DIE TOLLSTEN EFFEKTE AUF EINER "
  47.    Data "GANZ EINFACHEN IDEE BERUHEN.... COWABUNGA!        "
  48.    
  49.    'um die laufschrift von vorne anfangen zu lassen,folgende Zeile anf�gen
  50.    Data ""
  51. End Proc